(widget-color-complete): Sort completions alphabetically.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index be024393a74b161b0a1506d1d8c802035318c98f..7323332ad2bdbba787a667f9e484cf17ae882bf7 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -3742,7 +3742,8 @@ example:
   (require 'facemenu)                  ; for facemenu-color-alist
   (let* ((prefix (buffer-substring-no-properties (widget-field-start widget)
                                                 (point)))
-        (list (or facemenu-color-alist (defined-colors)))
+        (list (or facemenu-color-alist
+                  (sort (defined-colors) 'string-lessp)))
         (completion (try-completion prefix list)))
     (cond ((eq completion t)
           (message "Exact match."))